perm filename BTP[MUS,LCS] blob
sn#030344 filedate 1974-01-08 generic text, type T, neo UTF8
00100 ARRAY F3,F5,F2,F10,F11,F12(512);SYNTH(F5);1 1 2 1 3 .1 4 .1 999;
00200 SYNTH(F3);1 1 999;
00300 COMPILE;INSTRUMENT TRPT; OSCIL(P4,MAG/P2,P5);
00400 INTRP(P6*P8*MAG,P7*P8*MAG,P5); COSCIL(U2,P8*MAG,F3);
00500 COSCIL(U1,P3*MAG+U3,F3); OUTA←OUTA+U4;END;
00600 FINISH;
00700 SEG(F2);0 0 1.1 4 .75 13 .68 85 .5 92 0 100;
00800 SEG(F10);0 0 1 20 1 90 .5 100;SEG(F11);.5 0 1 10 1 90 .5 100;
00900 SEG(F12);.5 0 1 10 1 92 0 100;
01000 PLAY;TRPT 0 .25 C*2 1100 F2 1 5 P3+.5;FINISH;